<%
dim conn,connstr,db

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("db")


 
ManagementPanel=" "
 



 
 
 

Function RegExpTest(patrn, strng)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.IgnoreCase = False
  RegExpTest = regEx.Test(strng)
End Function 
%>
